if ($msg eq 'toad') {
  $self->{callback} = "toad";
  $self->{calluser} = $user;
  $self->sendMessage("Who would you like to toad? (one at a time, 'no-one' to stop)");
}
else {
  # Check if we actually are atoading someone!
  if ($self->{callback} eq 'toad') {
    # Check we are the user that wants to toad...
    if ($self->{calluser} eq $user) {
      if ($msg eq 'no-one') {
        delete $self->{callback};
        delete $self->{calluser};
        $self->sendMessage("You have not toaded anyone.");
      }
      else {
        if (exists $users->{$msg}) {
          $users->{$msg}->{oldperms} = $users->{$msg}->{permissions};
          $users->{$msg}->{permissions} = 'toaded user';
          $msn->broadcast($user." uses a magic wand to transfigure ".$msg." into a small toad!");
          $self->sendMessage("$msg is now a toad.");
          delete $self->{callback};
          delete $self->{calluser};
        }
        else {
          $self->sendMessage("Sorry, there is no user registered called $msg.");
        }
      }
    }
  }
}